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EDTSEXTEND = EXTEND change-mode command 1h-50 -Sep-1984 : 8: if: 3 VAX-11 Bliss-32 V 38°sa reg Page 1 
14-Sep-1984 12:2 DISK KSVMCR ASTER: ct T.SRCJEXTEND.BLI;1 (1) 
; 1 001 ZTITLE “EDTSEXTEND = EXTEND change-mode command' 
$ < Oe MODULE EDTSEXTEND ( ' EXTEND  Chenge-mode ommand 
3 ? it pOENT = *'v04-000' ile: EXTEND.BLI Edit: REM1024 
3 5 0005 1 BEGIN 
3 6 R208 1! 
$ said : See RRA REEAAAAEEA AREA EARAREREA EATER TEETATE TATE EEA EEKERAEAAA ARERR eee 
; 'e 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
: 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
g 1) oat) : ie ALL RIGHTS RESERVED. ’ 
; ! . 
3 ig $78 1 !* THIS SOFTWARE IS PRN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s 1% 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
+. os 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Softw ARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
5 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 OO18 1 ts TRANSFERRED. . | 
: '® a 
; 20 0020 % ‘® THE gtr IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $8 8058 : _ CORPORATION. * 
3 'e * 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
A: an 0026 1 !* * 
+ a 0027 1 !* * 
: 28 0028 1 Nearer e eee eee ee eee RRA RA AAA AA ARATE AAA A THETA RARKEARAAAETAARERA AAA eee 
g o 0029 1! 
3 $0 $080 1 
; 0031 1 !+¢+ 
3 $4 bos ' FACILITY: EDT == The DEC Standard Editor 
; 34 0034 1 ' ABSTRACT: 
oa 0035 1! 
; = 0036 1! Do the EXTEND change-mode command, which allows a lLine-mode 
; 3 ot ! command to be executed from change mode. | 
; 4 o25 ! ENVIRONMENT: Runs at any access mode - AST reentrant 
3 41 0041 1 i AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 
3 og one$ 1! 
; 4 004 1 MODIFIED BY: 
2 0044 1: 
. ) oe 0045 1 ! 1-001 = Original. DJS 18-FEB-1981. This module was created by 
:; 46 ‘ok 1} Sxgrect ing routine EDTSSEXT_CMD froa, module EDTCTR. 
: «667 047 1! 1-008 - Regular z¢ headers. git 04-Mar-1 
; 68 048 1 | 1-003 = Do prompti +3 from a global and reneye LLINE and LCHANGE. JBS 23-Oct-1981 
© 049 1! 1-004 - Replace tt NE and L SCHANGE 7-Dec- 
oe 050 1! 1-005 - Add dd Epis COAD EXTEND, s that DTSLNM_CMD can reload this routine into 
>= ie 1 7. cf roe “fe. returning t. AlSo, use a different symbol 
: 26 O36 : tor. c EbTS T3$ D, so the eel analyzer can be told to ignore it. 
5 6 054 1: 1- 66 - x the men ou 2 EDTSSPA CMD. JBS Saat) + 
ee 55 1: 1- = Remove L ol INE and L_CHARGE. JBS 03-Jun-198 
; 2$ Bees 1) 1- 38 - Allow any Ay to terminate the ‘ ‘Font tinue’ message. SMB JOrsune 1382 
; 057 1! 1- - Fix bug 4 /RECOVER associated with above change. SMB 16-Jun-198 
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TOa HOO ° eaeenh BBs PSiSS8S NN db GhAsteRcceot saclexreno.eui;1 «15 
1-010 - bos tgion the 
SMB 28-Ju 


gyrest better when waiting for a command to execute. 
n-19 


$i} We can't use TI_WRSTR unless this is a VT100/52. SMB 02-Jul-1982 
-012 = Use new formattin {lags to gngrol output at the bottom 

et the screen. JBS 05-Jul-1198 

Fix up response to PRTC when reading the journal file. JBS 06-Jul-1982 

Check for control C. STS 15-Jul-198 

Write out the journal buffer before asking for input. JBS OF Ayan 198 

Force a cursor positioning sequence and reverse video. SMB 30-Aug-1982 
Output the format buffer after turning off reverse video. SMB 01-Sept-1982 
Don't destory EDTS$G_PRV_COL, it is now being maintained eccurerely. JBS_05-0ct-1982 

Force awrite t gre .dovnnst file after ee is pressed. STS (7+0ct-1982 


oe 
oO 
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Don't clear EDTS$G § JBS 09-0ct 

Check for hardcopy terminal. STS 02-Dec-198 

Also check for terminal type unknown. STS 03-Dec-1982 

Don't permit a long response to Gestroy the stack. JBS 13-Dec-1982 

8B sete 22 pees EDTS$G_TIN_OBUFPOS durring /RECOVERY mode. 
-Uct=- 
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EDTSEXTEND EDTSEXTEND = EXTEND change-mode command bese -1984 :18: VAX-11 Bliss-32 V4.0-74 Page 3. 

TO ae 500 Declarations ° 1e= geet 38 99:38:85 PPRSVMGMASTERSCEDT SRCTEXTEND.OLI;1 ° (2). 

>: 79 78 1 XSBTTL 'Declarations’ : 
; #8 79 1! 3 
3 Be 9 : TABLE OF CONTENTS: : 
; 082 1 
; Be : REQUIRE ‘EDTSRC: TRAROUNAM'; ; 
; HA 1 FORWARD ROUTINE : 
a Or 4 1 EDTSSEXT_CMD : NOVALUE 3 
; «88 5 1 EDTS$LOAB_EXTEND : NOVALUE; ; 
; § 1 ; 
: , 3 | : 
s 91 & 1 ! INCLUDE FILES: 3 
: 3 529 1! 3 
ce = 0530 1 3 
;  % 0531 1 REQUIRE "EDTSRC:EDTREQ’; | ; 
5 06 1 | 3 
; © 667 1! ; 
22. oe 0668 1 ! MACROS: : 
Py 98 0669 1! | e 
; 299 0670 1! NONE r 
: 100 0671 1! 3 
; 6101 ber¢ 1 ! EQUATED SYMBOLS: 3 
; 108 0675 1! ; 
s 10 0674 1! NONE 3 
; 1046 0675 1! é 
; 105 0676 1 ! OWN STORAGE: 3 
: 106 0677 1! 3 
s 07 0678 1! NONE F 
: 108 0679 1! 3 
; 109 0680 1 ! EXTERNAL REFERENCES: é 
s 110 0681 1! 3 
s 111 0682 1! In the routine : 
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EDTSEXTEND EDTSEXTEND = EXTEND change-mode command 1B-se 1984 00:18:24 VAX=11 Bliss-32 V4.0-74 Page 5 

04-00 EDTSEEXT CMD - EXTEND change-mode command 1 730071382 99:38:88 DL SKSVMGMASTERSCEDT  SRCTEXTEND.BLI1 . (3) 

> 170 740 EDTSSMSG_TOSTR ; 
; 171 741 EDT$S$OUT-FMTBUF, : 
; \7¢ ot) EDTSSPA_CMD_NOOVERLAY, ‘ 
3 V7 74 EDTSSLNA_CMD_NOOVERLAY : 
: 174 744 EDTS$TI_FLUSRJOUFI : NOVALUE, ! Write out the journal file's buffer ; 
; WF 745 EDTSSFMT_MSG : NOVALUE, ' Output a message ; 
; 176 rs EDTSSALO_HEAP, ! Allocate heap storage ; 
3 ivr e EDTSSDEA_HEAP : NOVALUE; ! Deallocate heap storage ; 
3; iW ak: exteos ; 
; 180 750 EDTS$$G_PUT_JOU, ! force a write to journal file : 
; 18 tel EDTS$$G_MESSAGE_LINE, ! Message Lines are this + 1 ; 
9 ; 07 ¢ EDTS$G_EXI, ' Change mode has been exited : 
; 18 Ore EDTSSA_FMT_WRRUT, ! Output format routine : 
> «(184 0754 EDTSST_CMD_BUF, ! Command Line buffer ; 
; «(185 0755 EDTSSA_CMD_BUF, ! Pointer into command Line buffer ; 
> «186 0756 EDTSSA_CMD_END, ! End of current command : 
; «(187 0757 EDTS$G_EXITD, ! Did we exit with the last command? : 
; «188 0758 EDTSS$G_EDIT_MOD, ' Current editing mode : 
; «64189 0759 EDT$$G_RCOV_MOD, ' Are we in recovery mode? ; 
: 190 0760 EDT$$G_SCR_CHGD ! Screen must be completely rebuilt : 
: 191 0761 EDT$$G_TXT-ONSCR, i Text was written to screen ; 
; 198 O76¢ EDTS$$G_CC_BONE, ' Control ¢ acted upon ; 
: #419 076 EDTSS$G_TI_TYP, ! kind of terminal : 
3; 194 0764 EDTS$Z_PA_STK ! Parser semantic stack ; 
: «195 0765 EDTS$G_FMT_BOT ! 1 = messages at bottom of screen : 
3: (196 0766 EDTSSG_FM7_LC ! Number of Lines printed at the bottom of the screen : 
3; 97 0767 EDTSS$G_FMT_LNPOS, ! Position on the output Line ; 
; 198 0768 EDTS$$G_TIN_OBUFPOS, ! Position in journal output buffer 3 
3 138 8768 EDTS$G_LASTMSG; ! The Last message printed, 1 = none : 
; 201 0771 MESSAGES ((PRERETCON, INSMEM)); : 
; 4 1444 : 
; 20 077 LOCAL | : 
3 204 0774 CONT_RESP : REF VECTOR (256, BYTE), | : 
; st 0775 C : 
> 206 0776 TERM, | ; 
; 207 077 LEN; : 
; 208 0778 : 
; 209 0779 CHSWCHAR (*!", .EDTSSA_CMD_END); : 
> 210 780 EDT$$G_TXT_ONSCR = 0; | : 
; u 781 : EDTS$$G_EDIT_MOD = LINE_MODE; : 
3 18 f § ; Position the cursor to the message Line. ° 
: 215 785 : 
§ 1¢ g $ fF At EOTS86 TET NEQ TERM_HCPY) AND (.EDTS$G_TI_TYP NEQ TERM_UNKNOWN) ) : 
; 218 7 ; peGie : 
: 219 7 EDTSSSC_POSCSIF (.EDTSSG_MESSAGE_LINE + 1, 0); : 
3 $9 7? EDT$$G_FMT_LNPOS = 0; : 
> 221 791 EDTS$G-FMT-BOT = 1 ; 
i 9@ 79 EDTS$G-FMT-LCNT = 0; : 
: 79 EDTS$SC_REVID (); ; 
; 4 794 END; ; 
3 5 795 : 
: 6 796 dO : 
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EDTSEXTEND EDTSEXTEND = EXTEND change-mode command 16-Sep-1984 00:18:24  VAX=-11 Bliss-32 V4.0-74 Page 6 ED! 
bus 500 EDTSECKT. CMD - EXTEND change-mode command 1278071382 99:38:63 DL SKSVMSMASTERSCEDT SRCSEXTEND.BLI:1 ’ (3) v04 
; 7 16 44 BEGIN : 
3 § te IF EDTSSPA_CMD_NOOVERLAY () THEN EDTSSLNM_CMD_NOOVERLAY (EDTS$$Z_PA_STK) ELSE EDTS$G_TXT_ONSCR = 1; : 
: 231 60 END ; 
; § 8¢ UNTIL ((CHSRCHAR (.EDTSSA_CMD_BUF) EQL 2C'!") OR (.EDTSSG_EDIT_MOD EQL CHANGE_MODE) OR (EDTSS$CHK_CC ())) ‘ 
; & H '¢ $ 
: 5 D806 See if the reason we are exiting is because of a control C seen. : 
3 07 2. , 
; 3 8 ( NOT ((CHSRCHAR (.EDTSSA_CMD_BUF) EQL %C°!") OR (.EDTSS$G_EDIT_MOD EQL CHANGE_MODE))) : 
: 240 10 EDTS$G_CC_DONE = 1; : 
3 re ele cs : 
; 26 18 i Text on the screen means we have more than 2 Lines of messages and that ; 
; rh} oaie ; we need to issue the Press return to continue message. ‘ 
: 26 81 3 
; <3 th IF (.EDTSS$SG_TXT_ONSCR NEQ 0) AND (.EDTSSA_FMT_WRRUT EQL EDTSSTI_WRSTR) : 
; 248 0818 THEN : 
; 3 + Bh BEGIN : 
: 251 0821 i Allocate heap storage for the response, even though we use so much space only in /RECOVER mode, ; 
; 2g OS ¢ : so that if we run out of storage during /RECOVER we will also run out in the original session. : 
: 254 0824 3 ; 
; 2? 83 5 3 then NOT EDTSSALO_HEAP (ZREF (256), CONT_RESP)) : 
: 257 O85 BEGIN ; 
; 28 08 § 4 EDTSSFAT _MSG (EDTS_INSMEM) ; ; 
; 260 0830 $ ELSE ; 
: et 1 ? BEGIN | : 
: $83 0838 5 IF (.EDT$$G_RCOV_MOD EQL 0) | 3 
> 264 0834 4 THEN : 
; 265 eth BEGIN : 
: 68 0 “3 = EDTSSSTOP_WKINGMSG (); : 
; 268 0838 i Qutput the “Press return to continue” : 
; 269 9 ! message and wait for ANY key to be pressed before refreshing the screen 
; rm 9 :_and returning to change mode. 
; , 084g a EDTSSFMT_CRLF (); 
; " : Don’t call FMT_MSG because we don't want the bell to ring. 
; 6 EDTS$SC_REVID (); 
3; 27 EDTSSMSG_TOSTR (EDT$_PRERETCON); 
; 8 3 EDTSSOUT_FMTBUF (); 
; '¢ 
; 280 50 ! Make sure the journal buffer has been written to the journal file, 
: 3 33 since we are about to wait for terminal input. 
: 28 (e4 EDTSS$TI_FLUSHJOUFI (%C'T"); 
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exTEMP changecnade command, JerSep—H9E Q0:IE:R4 YMC 


Get the next character of input, including any characters generated by 
striking a keypad key. 


EDTSS$TI_INPCH (C); 
EDTSSKPAD_ INP (.C) .C, TERM); 


EGIN 
edt$$g_tin_obufpos = 0; 
edt$$rd_joutxt (cont_resp (0), Len) 
END; 

Ah paeae tata (ZREF (256), CONT_RESP); 


+! LASTMSG = 1; 


EDTS$G_ 
EDT$$G_SCR_CHGD = 1; 
END; 


IF (.EDTSSG_EXITD NEQ 0) THEN EDTS$G_EXI = 1; 
cores PUT JOU = 1; ! make sure the response 


OO NNN NNN 
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EDT$$G_FAT BOT = 0; 
EDTSSG_EDIT_MOD = CHANGE_MODE; 
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of routine EDTSSEXT_CMD 


-TITLE EDTSEXTEND EDTS 
-IDENT \v04-000\ 


.EXTRN EDTSS$SC_REVID 
"EXTRN EDT$$SC~POSCSIF 
[EXTRN EDTSSFMT_CRLF 
“EXTRN EDTS$$RD_JOuTXf, 
“EXTRN EDTS$SKPAD_INP 
TEXTRN EDTSSCHK_CC, ED 
“EXTRN EDTS$S$OUT-FMTBUF 
-EXTRN EDTS$PA_CMD_NOO 
~EXTRN EDTSSLNA_CMB 
eEXTRN EDTSS$TI_FLUSAU 
“EXTRN EDTSSFMT_MSG, E 
TEXTRN EDTSSDEA~HEAP 
“EXTRN EDT$$G_MESSAGE 
“EXTRN EDTS$G-EXI, EDT 
“EXTRN EDTS$T—CMD_BUF, 
-EXTRN EDT$S$A~CMD~END 
“EXTRN EDTS$$G~EDIT_MOD 
“EXTRN EDTS$$G_RCOV-MOD 
-EXTRN EDT$$G_SCR_CHGD 
“EXTRN EDTS$$G"TXT-ONSC 
-EXTRN EDT$$G_CC_BONE, 
-EXTRN EDT$$Z"PA"STK, 
“EXTRN EDTSSG"FMT_LCNT 
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gets written out alone 


EXTEND - EXTEND change-mode comm 


EDT$$SC_NONREVID 


EDTSSSTOP_WKINGMSG 
EDTS$TI_OQRSTR 

EDTS$TI_INPCH 

TSSMSG_TOSTR 


DTSSALO_HEAP 
Ep T386_PUT_JOU 


A_FMT_WRRUT 
EDTSSA_CMD_BUF 
EDTS$G_EXITD 
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AX-11 Bliss-32 V4.0-7 

ISKSVMSMASTER: th i’sre EXTEND.BLI; ” 
EDTSS$G_FMT_LNPOS 
EDT$$G_TIN_OBUFPOS 
EDT$$G-_LASTMSG, EDTS_PRERETCON 
EDTS$_IRSMEM 


EDTSCODE,NOWRT, SHR, PIC,2 


EDTSSEXT_CMD Save 2, R3,R4,R5,R6,R7 
EDTSSOUT FMT "Gur 

EDT$$A_CAD B 

EDTS$$sC REVI 

EDT$$G_FMT vB. Re 
EDT$$G_TXT-ONSCR, R3 
EDT$S$G-EDIT_MOD, R2 

#20, SP 

EDISSA CMD _END, RO 

#33, (RO) 

EDT$$G_TXT_ONSCR 

#1, EDT$$G-EDIT_MOD 
EDTS$¢_T1_TYP, RO 

RO, # 

1$ 

RO 

1$ 

-(SP) 

#1, EDT$$G_MESSAGE_LINE, -(SP) 


#2, EDTS$$SC_POSCSIF 


-REVID 
#0, DTSSPA_CMD_NOOVERLAY 


EDts§z 
1, EOTSSCNM” CMD_NOOVERLAY 


EDT$$G_TXT_ONSCR 
Issa 5n0- “BUF; RO 
wet ie 
DTSSCHK_CC 
$$A_CMD_BUF, RO 
ae ie 


a ly 
, 


T$$G_EDIT_MOD 


DT$$G_CC_DONE 
f$$6_TXT~ONSCR 


poperey 


$$TI_WRSTR, RO 
$SA_FMT_WRRUT, RO 


NT_RESP 
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EDTSEXTEND EDTSEXTEND - EXTEND change-mode command 16-Sep-1984 218: VAX-11 Bliss-32 V4.0-74 P 9 
TOL 600 EDTSECXT CMD - EXTEND change-mode command 1o=8eP 1382 99:38:63 STEKSUMGHASTERSCEDT SRCTEXTEND.BLI:1 _ (3) | 
| 
04 AE 0100 8F 3¢ 00000 MOVZ2WL #256, 4(SP) ; | 
8? A 3 0008 PUSHAB : 
000000006 00 re Op CALLS ’ Y ne : | 
000000006 &8F DD eS PUSHL  #EDT$_INSMEM + 0828 
000000006 00 1 FB : CALLS fi EDTSSFMT_MSG @ | 
000000006 08 03 Oot Bs: TSTL_EDTS$6_RCOV.MoD B33 
000000006 00 FB OOOFA CALLS #0, EDT$$STOP_WKINGMSG + 083 
ae ee HERD | ta ete ait ae 
000000006 SF DD 61 B PUSHL #EDT$ PRERETCO : $b29 
000000006 09 1 FB O11 CALLS #1, EDTSSMSG_TOSTR : 
7 54 BF OR OOTIB novia 986, cts ee : OBS 
000000006 00 a 01 fe O11 CALLS #1, EDTS$TI_FLUSHJOUF I : aes 
000000006 00 01 FB 00129 CALLS #1, EDTS$$TI_INPCH : : 
08 AE 9F 001 : PUSHAB TERM : 0859 ; 
rs ae pa El 
000000006 00 03 FB 00139 CALLS #3, EDTSSKPAD_INP : ee 
000000006 00 D4 NoI42 98: CLRL—- EDT$$G_TIN_OBUF POS : 0863 ; 
of AE Bb See BUS LENT RESP 3; 0864 : 
000000006 00 05 FB OO14e CALLS 4&2, EDT$$RD_JOUTXT : ; 
10 AE 9F 00155 108 PUSHAB CONT_ + 0867 
eA ae RE BRM te38y fm : 
000000006 00 02 FB 00161 CALLS #2, EDTS$DEA_HEAP ; 
000000006 00 01 DO 00168 11$:  MOVL #1. EDT$$G_LASTMSG : 0870 
000000006 00 01 DO OO16F MOVL #1. EDT$$G~SCR_CHGD : 0871 
000000006 00 D5 00176 128 TSTL EDiS$¢_Ex1TD > 0874 
000000006 00 0 00 OIrE ROVE Ai EDTSSG_EXI 
000000006 00 01 D0 0018s 13$ MOVL #1. EDT$$G~PUT Jou > 0876 
000000006 00 00 FB 001 ¢ CALLS #0. EDT$$SC_NONREVID : 0877 
67 00 FB 0019 CALLS #0. EDT$SOUT FMTBUF : 0878 
64 D4 198 CLRL = EDT $$G_FMT_BOT : 0879 
62 D4 0019 CLRL  EDTS$G~EDIT_MOD + 0880 
04 0019A RET : 0881 
; Routine Size: 411 bytes, Routine Base: _EDTSCODE + 0000 


; 0882 1 


EDTSEXTEND EDTSEXTEND = EXTEND change-mode command 1-56 -Sep-1984 4 VAX-11 Bliss-32 V4.0-7 
04-500 EDISECOAD. EXTEND - load this module into memory 14- ~Sep-19 4 2 99: 38 63 DISKSVMSMASTER: 
; i? tH } ZSBTTL ‘EDTSSLOAD_EXTEND = Load this module into memory’ 

s 316 885 1 GLOBAL ROUTINE EDTSS$LOAD_EXTEND ! Load this module into memory 
s 217 $4] 1 : NOVALUE = 

; 318 887 1 

; 319 888 1 S++ 

; 31 94 ! FUNCTIONAL DESCRIPTION: 

3 $ 891 1: This routine has no function. It exists as an entry point so that 

: $86 1} EDTSSXXX_NOOVERLAY can call this module back into memory before 

5 : + : returning to it. 

: 6 $898 1 | FORMAL PARAMETERS: 

3 7 0896 1! 

3 328 0897 1 NONE 

$ $82 0898 1! 

3 0 0899 1 ' IMPLICIT INPUTS: 

2 33) 0900 1} 

» ioe 0901 1! NONE 

; 339 0902 1! 

> 4334 0903 1 | IMPLICIT OUTPUTS: 

s 339 0904 1! 

; 336 0905 1: NONE 

3 337 0906 1! 

: 338 0907 1 ' ROUTINE VALUE: 

; 339 0908 1: 

; 340 0909 1} NONE 

; «341 0910 1: 

; <6 0911 1 | SIDE EFFECTS: 

; 34 bat¢ 1/ 

3 344 091 1 i NONE 

; 345 0914 1! 

: 346 0915 1 i- 

; 347 0916 «1 

; 348 0917 2 BEGIN 

; 349 0918 2 0 g 

; 350 0919 1 END; ! of routine EDTS$LOAD_EXTEND 


0000 00000 ENTRY EDTSS$LOAD_EXTEND, Save nothing 
04 00002 RET 


; Routine Size: 3 bytes, Routine Base: _EDTSCODE + 0198 


351 $330 1 
3 332 0921 1 !<BLF/PAGE> 


cE + °ske EXTEND.BLI;1 


Page 


1 
(4 


0 
) 


Elapsed Time: 00:21.8 
Lines/CPU Min: $328 
Lexemes/CPU-Min: 8245 

renee? Used: 115 pages 

Compilation Complete 


GRLSESIE™ —_EBTERLERNPSGnERB™PSETERTEEEAETEMNES memory HECEEBRIGEL SBSIESBS  IMGDINBMASHER? ES °sRSerreno.ou1:1"%%" 
; Bs o388 1 END ! of module EDTSEXTEND 
: 924 0 ELUDOM | 
| 
: PSECT SUMMARY 
; Name Bytes Attributes 
; -EDTSCODE 414 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ae Ae eee, ee Symbols ------- Pages Processing 
: File Total Loaded Percent Mapped Time 
| BERWEIBEREREREL Of to ee ere WI 
| 
| 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:EXTEND/OBJ=OBJ$:EXTEND MSRC$:EXTEND.BLI/UPDATE=(ENHS:EXTEND) | 
; Size: 414 code + 0 data bytes 
Run Time: :18. | 


Be Se See Bs Oee 
De ee Be Oe Be Be Be Be Be Se SH Se Be Se Se Ge Be Se Se Se Se Ge Fe Se Se we Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Seasesestense 
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